Top 10k strings from ZX Trek (1982)(Impact Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /

Back to the directory listing

   4 a$="Insufficient energy":
   3 score=score+20
   2 tnr*stars>
   2 score=score-100
   2 q$(rr,rc)=".":
   2 imp=(lev+1
   2 g$(kx,ky,1
   2 a$="Quadrant "+
   2 ZX Trek   
   2  Initialisation
   1 zap=zap-imp:
   1 x=vv*vv+ww*ww:
   1 x(a),y(a):
   1 t(p,y)=t(nt,y):
   1 sr=mx-qx*10
   1 soff=(a$<"o"):
   1 sh=sh-imp:
   1 seen=(c>99
   1 score=score-300
   1 score=score+tnr+200
   1 score=score+10
   1 sc=my-qy*10
   1 s(bz,a)=s(ns,a):
   1 ren=ren-zap:
   1 ren=ren-a:
   1 qy*(qc-4.5
   1 qx*(qr-4.5
   1 q$(qx,qy)="R":
   1 q$(qx,qy)="K":
   1 q$(qx,qy)="K"
   1 q$(qx,qy)="*":
   1 q$(pxi,pyi)="+":
   1 q$(pv,pw)=".":
   1 q$(mxi,myi)="
   1 q$(l)=".........."
   1 q$(kx,ky)="."
   1 q$(e,f)="K":
   1 q$(e,f)="*"
   1 q$(bx,by)=a$:
   1 q$(bx,by)="B":
   1 q$(b,c)=".":
   1 ps=(ps-qy)*69
   1 ps=(ps-qx)*10
   1 p on course a
   1 my=my+.001
   1 mx=mx+.001
   1 mdate=date:
   1 l(a,y)=l(nk,y):
   1 l$=q$(pxi,pyi):
   1 l$=q$(mxi,myi):
   1 l$=g$(qr+1
   1 imp=zap*(sh-1000
   1 imp=imp-d:
   1 imp=imp*15
   1 imp=-s(bz,3
   1 ideal=1500
   1 f=ky+(f=ky)
   1 esab=esab-(esab>bz):
   1 en=en-zap:
   1 en=en+sh-se:
   1 en+sh>4000
   1 en+sh*(d(6
   1 e=kx+(e=kx):
   1 e=by-sc-.5
   1 dx=x(cou):
   1 dch=dch+(dch<9
   1 dch+" Dilithium crystal"+a$+" now found":
   1 dc=dc+dch:
   1 date=mdate+2
   1 date=date+1
   1 d=(hb-ha=9
   1 d(dev)=100
   1 d(b)=d(b)-d:
   1 d(a)+docked
   1 con=con-150
   1 con=con+s(esab,3
   1 con=con+d(a):
   1 con=(en+sh)/10
   1 c+": Base in danger!":
   1 c+" destroyed!":
   1 c$="cmprstww":
   1 b=by-esc-1
   1 acc=acc+ieng/9
   1 acc=acc+d(1
   1 a=en+sh-10
   1 a=bx-sr-.5
   1 a=bx-esr-1
   1 a=(s(esab,3
   1 a$=a$+" working 100%":
   1 a$="energy, "+
   1 a$="Your final score is "+
   1 a$="Your current score is "+
   1 a$="Starfleet suggests course "+
   1 a$="Starbase too far away":
   1 a$="Starbase at "+
   1 a$="Romulan destroyed":
   1 a$="Previous crystal still present!":
   1 a$="Power channel already empty":
   1 a$="Phasers inoperable":
   1 a$="Not stationary":
   1 a$="No target available for phasers":
   1 a$="No starbases left!":
   1 a$="No planets around here !":
   1 a$="No crystal available":
   1 a$="Must slow down to change course":
   1 a$="Landed"
   1 a$="Klingon destroyed":
   1 a$="Impulse engines "+a$+"engaged":
   1 a$="Engines damaged by manoeuvre":
   1 a$="Energy supplies are adequate":
   1 a$="Docked"
   1 a$="Dilithium Crystal jettisoned":
   1 a$="Cannot launch photon torpedo":
   1 a$="Cannot fire phasers while docked":
   1 a$="Can only repair that at starbase":
   1 a$="Beam up? You're aboard!":
   1 a$="50 units of energy needed":
   1 a$="      ":
   1 a$="      
   1 W=Spare command
   1 Try Klingon in e,f
   1 Torpedo Tracking
   1 Show status of device b
   1 Show sector no.
   1 Show quadrant no.
   1 Show energy values
   1 Show dc & pt
   1 Show cou & wf
   1 Show a$ in colour
   1 Show Quad. b,c on Scan
   1 Show Condition
   1 Short Range Sensor Scan
   1 Ship's Computer Display
   1 Score Calculation
   1 Romulan activity
   1 R=Repair Selection
   1 Pseudorandom qx,qy
   1 Print spaces before a$
   1 Phaser impact imp
   1 Peter Lovett Ltd., marketed by 
   1 P=Phaser Fire
   1 One Stardate
   1 Obtain Place qx,qy
   1 New York  
   1 New Warp Factor
   1 New Quadrant
   1 New Klingon quadrant
   1 New Course
   1 Nearest starbase
   1 Nearest Klingon
   1 Move U.S.S. Enterprise
   1 Miscellaneous events
   1 Might LR Scan
   1 M8;Home in
   1 M7;Starbase Report
   1 M6;Disengage
   1 M4;Remove crystal
   1 M3;Load crystal
   1 M2;Beam up
   1 M1;Beamdown
   1 Loop until key pressed
   1 Long Range Scan
   1 Left the galaxy: end of game
   1 LET a$=TRM$(a$)
   1 Klingon home
   1 Klingon fire
   1 Klingon Destruction 
   1 Klingon Activity
   1 Keyboard Input
   1 Individual functions:
   1 Impact Software
   1 Identify Klingon Target
   1 Graphics character data
   1 Graphic character set up
   1 Game Initialisation
   1 Enter Romulan
   1 Energy Transfer
   1 End of game
   1 ENTERPRISE DESTROYED
   1 Distance to starbase b
   1 Destroy Torpedo p
   1 Damage Starbase bz
   1 Damage Control
   1 Crystal activity
   1 Congratulations, you've won!
   1 Clear L.R.Scan
   1 Act upon Command
   1 =Set Ideal Shield Energy
   1 =Launch Photon Torpedo
   1 =Course Change)
   1 =Choose Warp Factor
   1 ;"Warp Factor";
   1 ;"Shields";
   1 ;"Sector";
   1 ;"Scan  Energy";
   1 ;"Range Condition";
   1 ;"Quadrant";
   1 ;"Photon Torpedoes"
   1 ;"Long  Stardate";
   1 ;"Level (0=easy to 9=impossible) 
   1 ;"Do you want sound effects[y/n] 
   1 ;"Dilithium Crystals";
   1 ;"DAMAGE CONTROL REPORT";:
   1 ;"Course";
   1 ;"Command?";
   1 ;"Command ?";
   1 ;"Beam me up,Scotty";
   1 ;"Any key to beam up...":
   1 ;"          ":
   1 6 Times per Stardate
   1 29-11-82 version
   1 1982 Peter Lovett Ltd.":
   1 /(dct*dct):
   1 /(a*a+b*b-20
   1 ,70 Redford Avenue,Edinburgh EH13OBW.
   1 *exk/(date-2995
   1 *(qr-s(b,1
   1 *(qc-s(b,2
   1 *(docked*30
   1 )=s(esab,4
   1 )=s(esab,3
   1 )="Warp Factor ?"
   1 )="Warp Engines":
   1 )="Torpedo Course ?":
   1 )="Ship's Computer"
   1 )="Shield Energy ?":
   1 )="Shield Control":
   1 )="S.R. Sensors":
   1 )="Photon Torp. Tubes":
   1 )="Phaser Energy ?":
   1 )="Phaser Control":
   1 )="Misc. order no. ?":
   1 )="L.R. Sensors":
   1 )="Enterprise Course?":
   1 )="Device to Repair ?":
   1 )="Communications":
   1 );":";a$(3
   1 )-en-sh)/2
   1 )+": base has "+
   1 )+" torpedoes,"+a$+" Klingon"+h$:
   1 )*(sh/1000
   1 (x*x+y*y):
   1 (sh-ideal)=
   1 (score+con*(
   1 (qy-esc)<3
   1 (qx-esr)<3
   1 (py-sc)<hr
   1 (px-sr)<hr
   1 (ideal-sh)*d(6
   1 (ideal-se)
   1 (hy-sc)<hr
   1 (hx-sr)<hr
   1 (docked*102
   1 (date-2500
   1 (a=dev);" ";:
   1 (a*a+e*e):
   1 (a*a+b*b+.0001
   1 (Klingon kf energy)
   1 (Accumulate 
   1 "Star Trek"
   1 "SPACE, THE FINAL FRONTIER."''"   This  is a  voyage  of the"''"   Starship  Enterprise.  Its"''"   five  year  mission,  to"''"   explore strange new worlds,"''"   to seek out new life and new"''"   civilisations,TO BOLDLY GO"''"   where no man has gone before."
   1 "New York"
   1 "Command ?             ";:
   1 "          "